do mf(2)

↑C
.Swapping to SYS:PSC.DMP
 PASCAL:	MF     
  111   78:ARRAY[0..LIGKERNSIZE]OF FOURQUARTERS;NL:0..LIGKERNSIZE;
P*  1**  ↑**********          ↑ ***************↑                  
1.↑:  Illegal symbol 
2.↑:  Identifier already declared   
3.↑:  ":" expected   
(500) (1000) (1500) (2000) (2500) (3000) 
 3288   16);ELSE BADUNARY(63);{:810}{812:}
P*  1**        ↑        ↑ ***↑            
1.↑:  Constant expected   
2.↑:  Identifier is not of appropriate class  
3.↑:  ":" expected   
(3500) 
 3521   ELSE IF N=0 THEN V:=0 ELSE IF V<0 THEN V:=N-1-((-V-1)MOD N)ELSE V:=V MOD
P*  1**    ↑                                                                    
1.↑:  Illegal symbol 

 3979   FUNCTION GETCODE:EIGHTBITS;LABEL 40;C:INTEGER;BEGIN GETXNEXT;
P*  1**                                     ↑ *******↑               
1.↑:  "BEGIN" expected    
2.↑:  ":=" expected  

 3980   GETEXPRESSIO;IF CURTYPE=16 THEN BEGIN C:=ROUNDUNSCALE(CURVAL);
P*  1**            ↑↑                         ↑                    ↑  
1.↑:  Identifier not declared  
2.↑:  ":=" expected  
3.↑:  Identifier not declared  
4.↑:  Identifier not declared  

 3981   IF C>=0 THEN IF C<256 THEN GOTO 40;
P*  1**    ↑            ↑                  
1.↑:  Identifier not declared  
2.↑:  Identifier not declared  

 3983   THEN BEGIN C:=STRPOOL[STRSTART[CUREXP]];GOTO 40;END;DISPERR(0,859);
P*  1**            ↑                                                       
1.↑:  Identifier not declared  

 3985   C:=0;40:GETCODE:=C;END;{:988}{989:}PROCEDURE SETTAG(C:EIGHTBITS;
P*  1** ↑                ↑                         ↑                    
1.↑:  Identifier not declared  
2.↑:  Identifier not declared  
3.↑:  "END" expected 
3.↑:  ";" expected   

 3996   C:=CC;END;END{:992};1:{993:}BEGIN 22:C:=GETCODE;
P*  1**                                    ↑            
1.↑:  Identifier not declared  

 3997   IF CURCMD=80 THEN BEGIN SETTAG(C,1,NL);GOTO 22;END;
P*  1**                                              ↑     
1.↑:  Identifier not declared  

 3998   IF CURCMD=78 THEN BEGIN{996:}NL.B1:=C;NL.B2:=CURMOD;
P*  1**                                ↑        ↑           
1.↑:  Type of variable is not record
2.↑:  Type of variable is not record

 3999   IF CURMOD=0 THEN NL.B3:=GETCODE ELSE BEGIN GETXNEXT;GETEXPRESSIO;
P*  1**                    ↑                                            ↑
1.↑:  Type of variable is not record
2.↑:  Identifier not declared  
2.↑:  ":=" expected  
(4000) 
 4004   NL.B3:=K;END{:996};IF NL=LIGKERNSIZE THEN OVERFLOW(875,LIGKERNSIZE);
P*  1**   ↑                                                                 
1.↑:  Type of variable is not record

 4005   NL:=NL+1;IF CURCMD=81 THEN GOTO 22;
P*  1**                                   ↑
1.↑:  Identifier not declared  

 4008   IF NL>0 THEN NL-1.B0:=128;END{:993};2:{997:}
P*  1**                ↑****                        
1.↑:  Illegal symbol 

 4011   HELPLINE[0]:=882;END;BACKERROR;END;NE.B0:=GETCODE;
P*  1**                                      ↑            
1.↑:  Type of variable is not record

 4013   HELPLINE[0]:=882;END;BACKERROR;END;NE.B1:=GETCODE;
P*  1**                                      ↑            
1.↑:  Type of variable is not record

 4015   HELPLINE[0]:=882;END;BACKERROR;END;NE.B2:=GETCODE;
P*  1**                                      ↑            
1.↑:  Type of variable is not record

 4017   HELPLINE[0]:=882;END;BACKERROR;END;NE.B3:=GETCODE;NE:=NE+1;END{:997};
P*  1**                                      ↑                               
1.↑:  Type of variable is not record

 4018   3,4:BEGIN C:=CURMOD;GETXNEXT;GETEXPRESSIO;
P*  1**                                          ↑
1.↑:  Identifier not declared  
1.↑:  ":=" expected  

 4023   HELPLINE[0]:=874;END BACKERROR;END;IF C=3 THEN{998:}
P*  1**                              ↑                      
1.↑:  Statement must end with ";","END","ELSE"or"UNTIL" 

 4027   WHILE J>NP DO BEGIN NP:=NP+1;PARAM[NP]:=0;END;GETXNEXT;GETEXPRESSIO;
P*  1**                                                                    ↑
1.↑:  Identifier not declared  
1.↑:  ":=" expected  

 4028   IF CURTYPE<>16 THEN BEGIN EXPERROR(883);BEGIN HELPPTR:=1;
P*  1**                                  ↑ ****↑                 
1.↑:  Identifier not declared  
2.↑:  ":=" expected  

 4030   UNTIL CURCMD<>81{:999};END;END;END;{:991}{1054:}PROCEDURE DOSPECIAL;
P*  1**                                                         ↑           
1.↑:  "END" expected 
1.↑:  ";" expected   

 4165   MINCOVER:=M;END;{:1002}{1004:}FUNCTION THRESHOLD(M:INTEGER);
P*  1**                                                            ↑
1.↑:  Missing result type in function declaration  

 4172   P:=MEM[13001].HH.RH;WHILE P<>19 DO BEGIN M:=M+1;L:=MEM[P+1].INT;
P*  1**                                                 ↑               
1.↑:  Identifier not declared  

 4173   MEM[P].HH.LH:=M;IF MEM[MEM[P].HH.RH+1].INT<=L+D THEN{1006:}
P*  1**                                             ↑              
1.↑:  Identifier not declared  

 4175   UNTIL MEM[MEM[P].HH.RH+1].INT>L+D;V:=(L+MEM[P+1].INT)DIV 2;
P*  1**                               ↑       ↑                    
1.↑:  Identifier not declared  
2.↑:  Identifier not declared  
(4500) 
 4532   FOR K:=1 TO 4 DO BEGIN TFMFOUR(0);P:=DIMENHEAD[K];
P*  1**                                   ↑               
1.↑:  Identifier not declared  

 4533   WHILE P<>19 DO BEGIN TFMDIMENOUT(MEM[P+1].INT);P:=MEM[P].HH.RH;END;
P*  1**       ↑                              ↑         ↑      ↑            
1.↑:  Identifier not declared  
2.↑:  Identifier not declared  
3.↑:  Identifier not declared  
4.↑:  Identifier not declared  

 4534   END{:1021};{1022:}FOR K:=0 TO NL-1 DO TFMQQQQ(78[K]);
P*  1**                                                 ↑** ↑
1.↑:  Illegal symbol 
2.↑:  Parameter type does not agree with declaration    

?error detected

Exit
↑C
.